/ Nebula 1 / Nebula One.iso / Graphics / Plotting / aa_Intel_Only / Gnuplot / GnuplotSource / term / eepic.trm

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 0a 20 2a 20 24 49 | 64 3a 20 65 65 70 69 63 |/*. * $I|d: eepic|
|00000010| 2e 74 72 6d 2c 76 20 31 | 2e 35 20 31 39 39 33 2f |.trm,v 1|.5 1993/|
|00000020| 30 35 2f 31 38 20 30 33 | 3a 35 36 3a 35 38 20 64 |05/18 03|:56:58 d|
|00000030| 61 76 69 73 20 45 78 70 | 20 24 0a 20 2a 0a 20 2a |avis Exp| $. *. *|
|00000040| 2f 0a 0a 2f 2a 20 47 4e | 55 50 4c 4f 54 20 2d 20 |/../* GN|UPLOT - |
|00000050| 65 65 70 69 63 2e 74 72 | 6d 20 2a 2f 0a 2f 2a 0a |eepic.tr|m */./*.|
|00000060| 20 2a 20 43 6f 70 79 72 | 69 67 68 74 20 28 43 29 | * Copyr|ight (C)|
|00000070| 20 31 39 39 30 20 2d 20 | 31 39 39 33 20 20 20 0a | 1990 - |1993   .|
|00000080| 20 2a 0a 20 2a 20 50 65 | 72 6d 69 73 73 69 6f 6e | *. * Pe|rmission|
|00000090| 20 74 6f 20 75 73 65 2c | 20 63 6f 70 79 2c 20 61 | to use,| copy, a|
|000000a0| 6e 64 20 64 69 73 74 72 | 69 62 75 74 65 20 74 68 |nd distr|ibute th|
|000000b0| 69 73 20 73 6f 66 74 77 | 61 72 65 20 61 6e 64 20 |is softw|are and |
|000000c0| 69 74 73 0a 20 2a 20 64 | 6f 63 75 6d 65 6e 74 61 |its. * d|ocumenta|
|000000d0| 74 69 6f 6e 20 66 6f 72 | 20 61 6e 79 20 70 75 72 |tion for| any pur|
|000000e0| 70 6f 73 65 20 77 69 74 | 68 20 6f 72 20 77 69 74 |pose wit|h or wit|
|000000f0| 68 6f 75 74 20 66 65 65 | 20 69 73 20 68 65 72 65 |hout fee| is here|
|00000100| 62 79 20 67 72 61 6e 74 | 65 64 2c 20 0a 20 2a 20 |by grant|ed, . * |
|00000110| 70 72 6f 76 69 64 65 64 | 20 74 68 61 74 20 74 68 |provided| that th|
|00000120| 65 20 61 62 6f 76 65 20 | 63 6f 70 79 72 69 67 68 |e above |copyrigh|
|00000130| 74 20 6e 6f 74 69 63 65 | 20 61 70 70 65 61 72 20 |t notice| appear |
|00000140| 69 6e 20 61 6c 6c 20 63 | 6f 70 69 65 73 20 61 6e |in all c|opies an|
|00000150| 64 20 0a 20 2a 20 74 68 | 61 74 20 62 6f 74 68 20 |d . * th|at both |
|00000160| 74 68 61 74 20 63 6f 70 | 79 72 69 67 68 74 20 6e |that cop|yright n|
|00000170| 6f 74 69 63 65 20 61 6e | 64 20 74 68 69 73 20 70 |otice an|d this p|
|00000180| 65 72 6d 69 73 73 69 6f | 6e 20 6e 6f 74 69 63 65 |ermissio|n notice|
|00000190| 20 61 70 70 65 61 72 20 | 0a 20 2a 20 69 6e 20 73 | appear |. * in s|
|000001a0| 75 70 70 6f 72 74 69 6e | 67 20 64 6f 63 75 6d 65 |upportin|g docume|
|000001b0| 6e 74 61 74 69 6f 6e 2e | 0a 20 2a 0a 20 2a 20 50 |ntation.|. *. * P|
|000001c0| 65 72 6d 69 73 73 69 6f | 6e 20 74 6f 20 6d 6f 64 |ermissio|n to mod|
|000001d0| 69 66 79 20 74 68 65 20 | 73 6f 66 74 77 61 72 65 |ify the |software|
|000001e0| 20 69 73 20 67 72 61 6e | 74 65 64 2c 20 62 75 74 | is gran|ted, but|
|000001f0| 20 6e 6f 74 20 74 68 65 | 20 72 69 67 68 74 20 74 | not the| right t|
|00000200| 6f 0a 20 2a 20 64 69 73 | 74 72 69 62 75 74 65 20 |o. * dis|tribute |
|00000210| 74 68 65 20 6d 6f 64 69 | 66 69 65 64 20 63 6f 64 |the modi|fied cod|
|00000220| 65 2e 20 20 4d 6f 64 69 | 66 69 63 61 74 69 6f 6e |e.  Modi|fication|
|00000230| 73 20 61 72 65 20 74 6f | 20 62 65 20 64 69 73 74 |s are to| be dist|
|00000240| 72 69 62 75 74 65 64 20 | 0a 20 2a 20 61 73 20 70 |ributed |. * as p|
|00000250| 61 74 63 68 65 73 20 74 | 6f 20 72 65 6c 65 61 73 |atches t|o releas|
|00000260| 65 64 20 76 65 72 73 69 | 6f 6e 2e 0a 20 2a 20 20 |ed versi|on.. *  |
|00000270| 0a 20 2a 20 54 68 69 73 | 20 73 6f 66 74 77 61 72 |. * This| softwar|
|00000280| 65 20 20 69 73 20 70 72 | 6f 76 69 64 65 64 20 22 |e  is pr|ovided "|
|00000290| 61 73 20 69 73 22 20 77 | 69 74 68 6f 75 74 20 65 |as is" w|ithout e|
|000002a0| 78 70 72 65 73 73 20 6f | 72 20 69 6d 70 6c 69 65 |xpress o|r implie|
|000002b0| 64 20 77 61 72 72 61 6e | 74 79 2e 0a 20 2a 20 0a |d warran|ty.. * .|
|000002c0| 20 2a 20 54 68 69 73 20 | 66 69 6c 65 20 69 73 20 | * This |file is |
|000002d0| 69 6e 63 6c 75 64 65 64 | 20 62 79 20 2e 2e 2f 74 |included| by ../t|
|000002e0| 65 72 6d 2e 63 2e 0a 20 | 2a 0a 20 2a 20 54 68 69 |erm.c.. |*. * Thi|
|000002f0| 73 20 74 65 72 6d 69 6e | 61 6c 20 64 72 69 76 65 |s termin|al drive|
|00000300| 72 20 73 75 70 70 6f 72 | 74 73 3a 0a 20 2a 20 20 |r suppor|ts:. *  |
|00000310| 20 54 68 65 20 45 45 50 | 49 43 20 6d 61 63 72 6f | The EEP|IC macro|
|00000320| 73 20 66 6f 72 20 4c 61 | 54 65 58 2e 20 0a 20 2a |s for La|TeX. . *|
|00000330| 0a 20 2a 20 41 55 54 48 | 4f 52 53 0a 20 2a 20 20 |. * AUTH|ORS. *  |
|00000340| 20 44 61 76 69 64 20 4b | 6f 74 7a 0a 20 2a 0a 20 | David K|otz. *. |
|00000350| 2a 20 73 65 6e 64 20 79 | 6f 75 72 20 63 6f 6d 6d |* send y|our comm|
|00000360| 65 6e 74 73 20 6f 72 20 | 73 75 67 67 65 73 74 69 |ents or |suggesti|
|00000370| 6f 6e 73 20 74 6f 20 28 | 69 6e 66 6f 2d 67 6e 75 |ons to (|info-gnu|
|00000380| 70 6c 6f 74 40 64 61 72 | 74 6d 6f 75 74 68 2e 65 |plot@dar|tmouth.e|
|00000390| 64 75 29 2e 0a 20 2a 20 | 0a 20 2a 2f 0a 2f 2a 0a |du).. * |. */./*.|
|000003a0| 20 2a 20 20 54 68 69 73 | 20 66 69 6c 65 20 63 6f | *  This| file co|
|000003b0| 6e 74 61 69 6e 73 20 74 | 68 65 20 65 65 70 69 63 |ntains t|he eepic|
|000003c0| 20 74 65 72 6d 69 6e 61 | 6c 20 64 72 69 76 65 72 | termina|l driver|
|000003d0| 2c 20 69 6e 74 65 6e 64 | 65 64 20 66 6f 72 20 75 |, intend|ed for u|
|000003e0| 73 65 20 77 69 74 68 20 | 74 68 65 20 0a 20 2a 20 |se with |the . * |
|000003f0| 20 65 65 70 69 63 2e 73 | 74 79 20 6d 61 63 72 6f | eepic.s|ty macro|
|00000400| 20 70 61 63 6b 61 67 65 | 20 66 6f 72 20 4c 61 54 | package| for LaT|
|00000410| 65 58 2e 20 54 68 69 73 | 20 69 73 20 61 6e 20 61 |eX. This| is an a|
|00000420| 6c 74 65 72 6e 61 74 69 | 76 65 20 74 6f 20 74 68 |lternati|ve to th|
|00000430| 65 20 0a 20 2a 20 20 6c | 61 74 65 78 20 64 72 69 |e . *  l|atex dri|
|00000440| 76 65 72 2e 20 59 6f 75 | 20 6e 65 65 64 20 65 65 |ver. You| need ee|
|00000450| 70 69 63 2e 73 74 79 2c | 20 65 70 69 63 2e 73 74 |pic.sty,| epic.st|
|00000460| 79 2c 20 61 6e 64 20 61 | 20 70 72 69 6e 74 65 72 |y, and a| printer|
|00000470| 20 64 72 69 76 65 72 20 | 74 68 61 74 0a 20 2a 20 | driver |that. * |
|00000480| 20 73 75 70 70 6f 72 74 | 73 20 74 68 65 20 74 70 | support|s the tp|
|00000490| 69 63 20 5c 73 70 65 63 | 69 61 6c 73 2e 0a 20 2a |ic \spec|ials.. *|
|000004a0| 0a 20 2a 20 41 6c 74 68 | 6f 75 67 68 20 64 6f 74 |. * Alth|ough dot|
|000004b0| 74 65 64 20 61 6e 64 20 | 64 61 73 68 65 64 20 6c |ted and |dashed l|
|000004c0| 69 6e 65 73 20 61 72 65 | 20 70 6f 73 73 69 62 6c |ines are| possibl|
|000004d0| 65 20 77 69 74 68 20 45 | 45 50 49 43 2c 20 61 6e |e with E|EPIC, an|
|000004e0| 64 20 61 72 65 0a 20 2a | 20 74 65 6d 70 74 69 6e |d are. *| temptin|
|000004f0| 67 2c 20 74 68 65 79 20 | 64 6f 20 6e 6f 74 20 77 |g, they |do not w|
|00000500| 6f 72 6b 20 77 65 6c 6c | 20 66 6f 72 20 68 69 67 |ork well| for hig|
|00000510| 68 2d 73 61 6d 70 6c 65 | 2d 72 61 74 65 20 63 75 |h-sample|-rate cu|
|00000520| 72 76 65 73 2c 20 6d 75 | 73 68 69 6e 67 0a 20 2a |rves, mu|shing. *|
|00000530| 20 74 68 65 20 64 61 73 | 68 65 73 20 61 6c 6c 20 | the das|hes all |
|00000540| 74 6f 67 65 74 68 65 72 | 20 69 6e 74 6f 20 61 20 |together| into a |
|00000550| 73 6f 6c 69 64 20 6c 69 | 6e 65 2e 20 46 6f 72 20 |solid li|ne. For |
|00000560| 6e 6f 77 20 61 6e 79 77 | 61 79 2c 20 74 68 65 20 |now anyw|ay, the |
|00000570| 45 45 50 49 43 0a 20 2a | 20 64 72 69 76 65 72 20 |EEPIC. *| driver |
|00000580| 77 69 6c 6c 20 68 61 76 | 65 20 6f 6e 6c 79 20 73 |will hav|e only s|
|00000590| 6f 6c 69 64 20 6c 69 6e | 65 73 2e 20 41 6e 79 6f |olid lin|es. Anyo|
|000005a0| 6e 65 20 67 6f 74 20 61 | 20 73 6f 6c 75 74 69 6f |ne got a| solutio|
|000005b0| 6e 3f 0a 20 2a 0a 20 2a | 20 4c 41 54 45 58 20 6d |n?. *. *| LATEX m|
|000005c0| 75 73 74 20 61 6c 73 6f | 20 62 65 20 64 65 66 69 |ust also| be defi|
|000005d0| 6e 65 64 2e 0a 20 2a 2f | 0a 0a 23 64 65 66 69 6e |ned.. */|..#defin|
|000005e0| 65 20 45 45 50 49 43 5f | 50 54 53 5f 50 45 52 5f |e EEPIC_|PTS_PER_|
|000005f0| 49 4e 43 48 20 28 37 32 | 2e 32 37 29 0a 23 64 65 |INCH (72|.27).#de|
|00000600| 66 69 6e 65 20 44 4f 54 | 53 5f 50 45 52 5f 49 4e |fine DOT|S_PER_IN|
|00000610| 43 48 20 28 33 30 30 29 | 09 2f 2a 20 72 65 73 6f |CH (300)|./* reso|
|00000620| 6c 75 74 69 6f 6e 20 6f | 66 20 70 72 69 6e 74 65 |lution o|f printe|
|00000630| 72 20 77 65 20 65 78 70 | 65 63 74 20 74 6f 20 75 |r we exp|ect to u|
|00000640| 73 65 20 2a 2f 0a 23 64 | 65 66 69 6e 65 20 45 45 |se */.#d|efine EE|
|00000650| 50 49 43 5f 55 4e 49 54 | 20 28 45 45 50 49 43 5f |PIC_UNIT| (EEPIC_|
|00000660| 50 54 53 5f 50 45 52 5f | 49 4e 43 48 2f 44 4f 54 |PTS_PER_|INCH/DOT|
|00000670| 53 5f 50 45 52 5f 49 4e | 43 48 29 20 2f 2a 20 64 |S_PER_IN|CH) /* d|
|00000680| 6f 74 20 73 69 7a 65 20 | 69 6e 20 70 74 20 2a 2f |ot size |in pt */|
|00000690| 0a 0a 2f 2a 20 35 20 69 | 6e 63 68 65 73 20 77 69 |../* 5 i|nches wi|
|000006a0| 64 65 20 62 79 20 33 20 | 69 6e 63 68 65 73 20 68 |de by 3 |inches h|
|000006b0| 69 67 68 20 28 64 65 66 | 61 75 6c 74 29 20 2a 2f |igh (def|ault) */|
|000006c0| 0a 23 64 65 66 69 6e 65 | 20 45 45 50 49 43 5f 58 |.#define| EEPIC_X|
|000006d0| 4d 41 58 20 28 35 2a 44 | 4f 54 53 5f 50 45 52 5f |MAX (5*D|OTS_PER_|
|000006e0| 49 4e 43 48 29 20 20 2f | 2a 20 28 45 45 50 49 43 |INCH)  /|* (EEPIC|
|000006f0| 5f 50 54 53 5f 50 45 52 | 5f 49 4e 43 48 2f 45 45 |_PTS_PER|_INCH/EE|
|00000700| 50 49 43 5f 55 4e 49 54 | 2a 35 2e 30 29 20 2a 2f |PIC_UNIT|*5.0) */|
|00000710| 0a 23 64 65 66 69 6e 65 | 20 45 45 50 49 43 5f 59 |.#define| EEPIC_Y|
|00000720| 4d 41 58 20 28 33 2a 44 | 4f 54 53 5f 50 45 52 5f |MAX (3*D|OTS_PER_|
|00000730| 49 4e 43 48 29 20 20 2f | 2a 20 28 45 45 50 49 43 |INCH)  /|* (EEPIC|
|00000740| 5f 50 54 53 5f 50 45 52 | 5f 49 4e 43 48 2f 45 45 |_PTS_PER|_INCH/EE|
|00000750| 50 49 43 5f 55 4e 49 54 | 2a 33 2e 30 29 20 2a 2f |PIC_UNIT|*3.0) */|
|00000760| 0a 0a 23 64 65 66 69 6e | 65 20 45 45 50 49 43 5f |..#defin|e EEPIC_|
|00000770| 48 54 49 43 20 28 35 2a | 44 4f 54 53 5f 50 45 52 |HTIC (5*|DOTS_PER|
|00000780| 5f 49 4e 43 48 2f 37 32 | 29 09 09 2f 2a 20 28 35 |_INCH/72|)../* (5|
|00000790| 2e 2f 45 45 50 49 43 5f | 55 4e 49 54 29 20 2a 2f |./EEPIC_|UNIT) */|
|000007a0| 0a 23 64 65 66 69 6e 65 | 20 45 45 50 49 43 5f 56 |.#define| EEPIC_V|
|000007b0| 54 49 43 20 28 35 2a 44 | 4f 54 53 5f 50 45 52 5f |TIC (5*D|OTS_PER_|
|000007c0| 49 4e 43 48 2f 37 32 29 | 09 09 2f 2a 20 28 35 2e |INCH/72)|../* (5.|
|000007d0| 2f 45 45 50 49 43 5f 55 | 4e 49 54 29 20 2a 2f 0a |/EEPIC_U|NIT) */.|
|000007e0| 23 64 65 66 69 6e 65 20 | 45 45 50 49 43 5f 48 43 |#define |EEPIC_HC|
|000007f0| 48 41 52 20 28 44 4f 54 | 53 5f 50 45 52 5f 49 4e |HAR (DOT|S_PER_IN|
|00000800| 43 48 2a 35 33 2f 31 30 | 2f 37 32 29 09 2f 2a 20 |CH*53/10|/72)./* |
|00000810| 28 35 2e 33 2f 45 45 50 | 49 43 5f 55 4e 49 54 29 |(5.3/EEP|IC_UNIT)|
|00000820| 20 2a 2f 0a 23 64 65 66 | 69 6e 65 20 45 45 50 49 | */.#def|ine EEPI|
|00000830| 43 5f 56 43 48 41 52 20 | 28 44 4f 54 53 5f 50 45 |C_VCHAR |(DOTS_PE|
|00000840| 52 5f 49 4e 43 48 2a 31 | 31 2f 37 32 29 09 2f 2a |R_INCH*1|1/72)./*|
|00000850| 20 28 31 31 2e 2f 45 45 | 50 49 43 5f 55 4e 49 54 | (11./EE|PIC_UNIT|
|00000860| 29 20 2a 2f 0a 0a 73 74 | 61 74 69 63 20 75 6e 73 |) */..st|atic uns|
|00000870| 69 67 6e 65 64 20 69 6e | 74 20 45 45 50 49 43 5f |igned in|t EEPIC_|
|00000880| 70 6f 73 78 3b 0a 73 74 | 61 74 69 63 20 75 6e 73 |posx;.st|atic uns|
|00000890| 69 67 6e 65 64 20 69 6e | 74 20 45 45 50 49 43 5f |igned in|t EEPIC_|
|000008a0| 70 6f 73 79 3b 0a 65 6e | 75 6d 20 4a 55 53 54 49 |posy;.en|um JUSTI|
|000008b0| 46 59 20 65 65 70 69 63 | 5f 6a 75 73 74 69 66 79 |FY eepic|_justify|
|000008c0| 3d 4c 45 46 54 3b 0a 73 | 74 61 74 69 63 20 69 6e |=LEFT;.s|tatic in|
|000008d0| 74 20 65 65 70 69 63 5f | 61 6e 67 6c 65 3d 30 3b |t eepic_|angle=0;|
|000008e0| 0a 0a 2f 2a 20 66 6f 72 | 20 44 4f 54 53 20 70 6f |../* for| DOTS po|
|000008f0| 69 6e 74 20 73 74 79 6c | 65 20 2a 2f 0a 23 64 65 |int styl|e */.#de|
|00000900| 66 69 6e 65 20 45 45 50 | 49 43 5f 54 49 4e 59 5f |fine EEP|IC_TINY_|
|00000910| 44 4f 54 20 22 5c 5c 72 | 75 6c 65 7b 2e 31 70 74 |DOT "\\r|ule{.1pt|
|00000920| 7d 7b 2e 31 70 74 7d 22 | 0a 0a 2f 2a 20 50 4f 49 |}{.1pt}"|../* POI|
|00000930| 4e 54 53 20 2a 2f 0a 23 | 64 65 66 69 6e 65 20 45 |NTS */.#|define E|
|00000940| 45 50 49 43 5f 50 4f 49 | 4e 54 5f 54 59 50 45 53 |EPIC_POI|NT_TYPES|
|00000950| 20 31 32 09 2f 2a 20 77 | 65 20 73 75 70 70 6c 79 | 12./* w|e supply|
|00000960| 20 6d 6f 72 65 20 70 6f | 69 6e 74 20 74 79 70 65 | more po|int type|
|00000970| 73 20 2a 2f 0a 73 74 61 | 74 69 63 20 63 68 61 72 |s */.sta|tic char|
|00000980| 20 2a 45 45 50 49 43 5f | 70 6f 69 6e 74 73 5b 5d | *EEPIC_|points[]|
|00000990| 20 3d 20 7b 0a 20 20 20 | 20 22 5c 5c 72 61 69 73 | = {.   | "\\rais|
|000009a0| 65 62 6f 78 7b 2d 31 2e | 32 70 74 7d 7b 5c 5c 6d |ebox{-1.|2pt}{\\m|
|000009b0| 61 6b 65 62 6f 78 28 30 | 2c 30 29 7b 24 5c 5c 44 |akebox(0|,0){$\\D|
|000009c0| 69 61 6d 6f 6e 64 24 7d | 7d 22 2c 0a 20 20 20 20 |iamond$}|}",.    |
|000009d0| 22 5c 5c 6d 61 6b 65 62 | 6f 78 28 30 2c 30 29 7b |"\\makeb|ox(0,0){|
|000009e0| 24 2b 24 7d 22 2c 0a 20 | 20 20 20 22 5c 5c 72 61 |$+$}",. |   "\\ra|
|000009f0| 69 73 65 62 6f 78 7b 2d | 31 2e 32 70 74 7d 7b 5c |isebox{-|1.2pt}{\|
|00000a00| 5c 6d 61 6b 65 62 6f 78 | 28 30 2c 30 29 7b 24 5c |\makebox|(0,0){$\|
|00000a10| 5c 42 6f 78 24 7d 7d 22 | 2c 0a 20 20 20 20 22 5c |\Box$}}"|,.    "\|
|00000a20| 5c 6d 61 6b 65 62 6f 78 | 28 30 2c 30 29 7b 24 5c |\makebox|(0,0){$\|
|00000a30| 5c 74 69 6d 65 73 24 7d | 22 2c 0a 20 20 20 20 22 |\times$}|",.    "|
|00000a40| 5c 5c 6d 61 6b 65 62 6f | 78 28 30 2c 30 29 7b 24 |\\makebo|x(0,0){$|
|00000a50| 5c 5c 74 72 69 61 6e 67 | 6c 65 24 7d 22 2c 0a 20 |\\triang|le$}",. |
|00000a60| 20 20 20 22 5c 5c 6d 61 | 6b 65 62 6f 78 28 30 2c |   "\\ma|kebox(0,|
|00000a70| 30 29 7b 24 5c 5c 73 74 | 61 72 24 7d 22 2c 0a 20 |0){$\\st|ar$}",. |
|00000a80| 20 20 20 22 5c 5c 63 69 | 72 63 6c 65 7b 31 32 7d |   "\\ci|rcle{12}|
|00000a90| 22 2c 20 22 5c 5c 63 69 | 72 63 6c 65 7b 31 38 7d |", "\\ci|rcle{18}|
|00000aa0| 22 2c 20 22 5c 5c 63 69 | 72 63 6c 65 7b 32 34 7d |", "\\ci|rcle{24}|
|00000ab0| 22 2c 0a 20 20 20 20 22 | 5c 5c 63 69 72 63 6c 65 |",.    "|\\circle|
|00000ac0| 2a 7b 31 32 7d 22 2c 20 | 22 5c 5c 63 69 72 63 6c |*{12}", |"\\circl|
|00000ad0| 65 2a 7b 31 38 7d 22 2c | 20 22 5c 5c 63 69 72 63 |e*{18}",| "\\circ|
|00000ae0| 6c 65 2a 7b 32 34 7d 22 | 0a 7d 3b 0a 0a 2f 2a 20 |le*{24}"|.};../* |
|00000af0| 4c 49 4e 45 53 20 2a 2f | 0a 23 64 65 66 69 6e 65 |LINES */|.#define|
|00000b00| 20 45 45 50 49 43 5f 4e | 55 4d 4c 49 4e 45 53 20 | EEPIC_N|UMLINES |
|00000b10| 35 09 09 2f 2a 20 6e 75 | 6d 62 65 72 20 6f 66 20 |5../* nu|mber of |
|00000b20| 6c 69 6e 65 74 79 70 65 | 73 20 62 65 6c 6f 77 20 |linetype|s below |
|00000b30| 2a 2f 0a 73 74 61 74 69 | 63 20 63 68 61 72 20 2a |*/.stati|c char *|
|00000b40| 45 45 50 49 43 5f 6c 69 | 6e 65 73 5b 5d 20 3d 20 |EEPIC_li|nes[] = |
|00000b50| 7b 0a 20 20 20 20 22 5c | 5c 74 68 69 63 6b 6c 69 |{.    "\|\thickli|
|00000b60| 6e 65 73 20 5c 5c 70 61 | 74 68 22 2c 09 09 09 2f |nes \\pa|th",.../|
|00000b70| 2a 20 2d 32 20 62 6f 72 | 64 65 72 20 2a 2f 0a 20 |* -2 bor|der */. |
|00000b80| 20 20 20 22 5c 5c 74 68 | 69 6e 6c 69 6e 65 73 20 |   "\\th|inlines |
|00000b90| 5c 5c 64 72 61 77 6c 69 | 6e 65 5b 2d 35 30 5d 22 |\\drawli|ne[-50]"|
|00000ba0| 2c 09 09 2f 2a 20 2d 31 | 20 61 78 65 73 20 2a 2f |,../* -1| axes */|
|00000bb0| 0a 20 20 20 20 22 5c 5c | 74 68 69 6e 6c 69 6e 65 |.    "\\|thinline|
|00000bc0| 73 20 5c 5c 70 61 74 68 | 22 2c 09 09 09 2f 2a 20 |s \\path|",.../* |
|00000bd0| 20 30 20 73 6f 6c 69 64 | 20 74 68 69 6e 20 20 2a | 0 solid| thin  *|
|00000be0| 2f 0a 20 20 20 20 22 5c | 5c 74 68 69 63 6b 6c 69 |/.    "\|\thickli|
|00000bf0| 6e 65 73 20 5c 5c 70 61 | 74 68 22 2c 09 09 09 2f |nes \\pa|th",.../|
|00000c00| 2a 20 20 31 20 73 6f 6c | 69 64 20 74 68 69 63 6b |*  1 sol|id thick|
|00000c10| 20 2a 2f 0a 20 20 20 20 | 22 5c 5c 54 68 69 63 6b | */.    |"\\Thick|
|00000c20| 6c 69 6e 65 73 20 5c 5c | 70 61 74 68 22 2c 09 09 |lines \\|path",..|
|00000c30| 09 2f 2a 20 20 32 20 73 | 6f 6c 69 64 20 54 68 69 |./*  2 s|olid Thi|
|00000c40| 63 6b 20 2a 2f 0a 7d 3b | 0a 2f 2a 20 54 68 65 73 |ck */.};|./* Thes|
|00000c50| 65 20 61 72 65 20 6f 74 | 68 65 72 20 70 6f 73 73 |e are ot|her poss|
|00000c60| 69 62 69 6c 69 74 69 65 | 73 0a 20 20 20 20 22 5c |ibilitie|s.    "\|
|00000c70| 5c 74 68 69 6e 6c 69 6e | 65 73 20 5c 5c 64 6f 74 |\thinlin|es \\dot|
|00000c80| 74 65 64 6c 69 6e 65 7b | 33 30 7d 22 2c 0a 20 20 |tedline{|30}",.  |
|00000c90| 20 20 22 5c 5c 74 68 69 | 6e 6c 69 6e 65 73 20 5c |  "\\thi|nlines \|
|00000ca0| 5c 64 72 61 77 6c 69 6e | 65 5b 2d 33 30 5d 22 2c |\drawlin|e[-30]",|
|00000cb0| 09 0a 20 20 20 20 22 5c | 5c 74 68 69 6e 6c 69 6e |..    "\|\thinlin|
|00000cc0| 65 73 20 5c 5c 64 6f 74 | 74 65 64 6c 69 6e 65 7b |es \\dot|tedline{|
|00000cd0| 36 30 7d 22 2c 0a 20 20 | 20 20 22 5c 5c 74 68 69 |60}",.  |  "\\thi|
|00000ce0| 6e 6c 69 6e 65 73 20 5c | 5c 64 72 61 77 6c 69 6e |nlines \|\drawlin|
|00000cf0| 65 5b 2d 36 30 5d 22 2c | 09 0a 20 20 20 20 22 5c |e[-60]",|..    "\|
|00000d00| 5c 74 68 69 6e 6c 69 6e | 65 73 20 5c 5c 64 61 73 |\thinlin|es \\das|
|00000d10| 68 6c 69 6e 65 5b 2d 31 | 30 5d 7b 32 30 7d 5b 36 |hline[-1|0]{20}[6|
|00000d20| 5d 22 0a 2a 2f 0a 73 74 | 61 74 69 63 20 69 6e 74 |]".*/.st|atic int|
|00000d30| 20 45 45 50 49 43 5f 74 | 79 70 65 3b 09 09 2f 2a | EEPIC_t|ype;../*|
|00000d40| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 20 74 79 | current| line ty|
|00000d50| 70 65 20 2a 2f 0a 73 74 | 61 74 69 63 20 54 42 4f |pe */.st|atic TBO|
|00000d60| 4f 4c 45 41 4e 20 45 45 | 50 49 43 5f 69 6e 6c 69 |OLEAN EE|PIC_inli|
|00000d70| 6e 65 20 3d 20 46 41 4c | 53 45 3b 20 2f 2a 20 61 |ne = FAL|SE; /* a|
|00000d80| 72 65 20 77 65 20 69 6e | 20 74 68 65 20 6d 69 64 |re we in| the mid|
|00000d90| 64 6c 65 20 6f 66 20 61 | 20 6c 69 6e 65 20 2a 2f |dle of a| line */|
|00000da0| 0a 73 74 61 74 69 63 20 | 76 6f 69 64 20 45 45 50 |.static |void EEP|
|00000db0| 49 43 5f 65 6e 64 6c 69 | 6e 65 28 29 3b 09 2f 2a |IC_endli|ne();./*|
|00000dc0| 20 74 65 72 6d 69 6e 61 | 74 65 20 61 6e 79 20 6c | termina|te any l|
|00000dd0| 69 6e 65 20 69 6e 20 70 | 72 6f 67 72 65 73 73 20 |ine in p|rogress |
|00000de0| 2a 2f 0a 73 74 61 74 69 | 63 20 69 6e 74 20 45 45 |*/.stati|c int EE|
|00000df0| 50 49 43 5f 6c 69 6e 65 | 63 6f 75 6e 74 20 3d 20 |PIC_line|count = |
|00000e00| 30 3b 20 2f 2a 20 6e 75 | 6d 62 65 72 20 6f 66 20 |0; /* nu|mber of |
|00000e10| 70 6f 69 6e 74 73 20 69 | 6e 20 6c 69 6e 65 20 73 |points i|n line s|
|00000e20| 6f 20 66 61 72 20 2a 2f | 0a 23 64 65 66 69 6e 65 |o far */|.#define|
|00000e30| 20 45 45 50 49 43 5f 4c | 49 4e 45 4d 41 58 20 35 | EEPIC_L|INEMAX 5|
|00000e40| 30 09 09 2f 2a 20 6d 61 | 78 20 76 61 6c 75 65 20 |0../* ma|x value |
|00000e50| 66 6f 72 20 6c 69 6e 65 | 63 6f 75 6e 74 20 2a 2f |for line|count */|
|00000e60| 0a 0a 2f 2a 20 41 52 52 | 4f 57 53 20 2a 2f 0a 2f |../* ARR|OWS */./|
|00000e70| 2a 20 77 65 20 75 73 65 | 20 74 68 65 20 73 61 6d |* we use| the sam|
|00000e80| 65 20 63 6f 64 65 20 61 | 73 20 66 6f 72 20 4c 41 |e code a|s for LA|
|00000e90| 54 45 58 20 2a 2f 0a 73 | 74 61 74 69 63 20 76 6f |TEX */.s|tatic vo|
|00000ea0| 69 64 20 62 65 73 74 5f | 6c 61 74 65 78 5f 61 72 |id best_|latex_ar|
|00000eb0| 72 6f 77 28 29 3b 20 2f | 2a 20 66 69 67 75 72 65 |row(); /|* figure|
|00000ec0| 20 6f 75 74 20 74 68 65 | 20 62 65 73 74 20 61 72 | out the| best ar|
|00000ed0| 72 6f 77 20 2a 2f 0a 0a | 45 45 50 49 43 5f 69 6e |row */..|EEPIC_in|
|00000ee0| 69 74 28 29 0a 7b 0a 20 | 20 20 20 45 45 50 49 43 |it().{. |   EEPIC|
|00000ef0| 5f 70 6f 73 78 20 3d 20 | 45 45 50 49 43 5f 70 6f |_posx = |EEPIC_po|
|00000f00| 73 79 20 3d 20 30 3b 0a | 20 20 20 20 45 45 50 49 |sy = 0;.|    EEPI|
|00000f10| 43 5f 6c 69 6e 65 74 79 | 70 65 28 2d 31 29 3b 0a |C_linety|pe(-1);.|
|00000f20| 20 20 20 20 66 70 72 69 | 6e 74 66 28 6f 75 74 66 |    fpri|ntf(outf|
|00000f30| 69 6c 65 2c 20 22 25 25 | 20 47 4e 55 50 4c 4f 54 |ile, "%%| GNUPLOT|
|00000f40| 3a 20 4c 61 54 65 58 20 | 70 69 63 74 75 72 65 20 |: LaTeX |picture |
|00000f50| 75 73 69 6e 67 20 45 45 | 50 49 43 20 6d 61 63 72 |using EE|PIC macr|
|00000f60| 6f 73 5c 6e 22 29 3b 0a | 20 20 20 20 66 70 72 69 |os\n");.|    fpri|
|00000f70| 6e 74 66 28 6f 75 74 66 | 69 6c 65 2c 20 22 5c 5c |ntf(outf|ile, "\\|
|00000f80| 73 65 74 6c 65 6e 67 74 | 68 7b 5c 5c 75 6e 69 74 |setlengt|h{\\unit|
|00000f90| 6c 65 6e 67 74 68 7d 7b | 25 66 70 74 7d 5c 6e 22 |length}{|%fpt}\n"|
|00000fa0| 2c 20 45 45 50 49 43 5f | 55 4e 49 54 29 3b 0a 7d |, EEPIC_|UNIT);.}|
|00000fb0| 0a 0a 0a 45 45 50 49 43 | 5f 73 63 61 6c 65 28 78 |...EEPIC|_scale(x|
|00000fc0| 73 2c 20 79 73 29 0a 09 | 64 6f 75 62 6c 65 20 78 |s, ys)..|double x|
|00000fd0| 73 2c 20 79 73 3b 09 09 | 09 2f 2a 20 73 63 61 6c |s, ys;..|./* scal|
|00000fe0| 69 6e 67 20 66 61 63 74 | 6f 72 73 20 2a 2f 0a 7b |ing fact|ors */.{|
|00000ff0| 0a 20 20 20 20 72 65 67 | 69 73 74 65 72 20 73 74 |.    reg|ister st|
|00001000| 72 75 63 74 20 74 65 72 | 6d 65 6e 74 72 79 20 2a |ruct ter|mentry *|
|00001010| 74 20 3d 20 26 74 65 72 | 6d 5f 74 62 6c 5b 74 65 |t = &ter|m_tbl[te|
|00001020| 72 6d 5d 3b 0a 0a 20 20 | 20 20 2f 2a 20 77 65 20 |rm];..  |  /* we |
|00001030| 63 68 61 6e 67 65 20 74 | 68 65 20 74 61 62 6c 65 |change t|he table|
|00001040| 20 66 6f 72 20 75 73 65 | 20 69 6e 20 67 72 61 70 | for use| in grap|
|00001050| 68 69 63 73 2e 63 20 61 | 6e 64 20 45 45 50 49 43 |hics.c a|nd EEPIC|
|00001060| 5f 67 72 61 70 68 69 63 | 73 20 2a 2f 0a 20 20 20 |_graphic|s */.   |
|00001070| 20 74 2d 3e 78 6d 61 78 | 20 3d 20 28 75 6e 73 69 | t->xmax| = (unsi|
|00001080| 67 6e 65 64 20 69 6e 74 | 29 28 45 45 50 49 43 5f |gned int|)(EEPIC_|
|00001090| 58 4d 41 58 20 2a 20 78 | 73 29 3b 0a 20 20 20 20 |XMAX * x|s);.    |
|000010a0| 74 2d 3e 79 6d 61 78 20 | 3d 20 28 75 6e 73 69 67 |t->ymax |= (unsig|
|000010b0| 6e 65 64 20 69 6e 74 29 | 28 45 45 50 49 43 5f 59 |ned int)|(EEPIC_Y|
|000010c0| 4d 41 58 20 2a 20 79 73 | 29 3b 0a 0a 20 20 20 20 |MAX * ys|);..    |
|000010d0| 72 65 74 75 72 6e 28 54 | 52 55 45 29 3b 0a 7d 0a |return(T|RUE);.}.|
|000010e0| 0a 45 45 50 49 43 5f 67 | 72 61 70 68 69 63 73 28 |.EEPIC_g|raphics(|
|000010f0| 29 0a 7b 0a 20 20 20 20 | 72 65 67 69 73 74 65 72 |).{.    |register|
|00001100| 20 73 74 72 75 63 74 20 | 74 65 72 6d 65 6e 74 72 | struct |termentr|
|00001110| 79 20 2a 74 20 3d 20 26 | 74 65 72 6d 5f 74 62 6c |y *t = &|term_tbl|
|00001120| 5b 74 65 72 6d 5d 3b 0a | 0a 20 20 20 20 66 70 72 |[term];.|.    fpr|
|00001130| 69 6e 74 66 28 6f 75 74 | 66 69 6c 65 2c 20 22 5c |intf(out|file, "\|
|00001140| 5c 62 65 67 69 6e 7b 70 | 69 63 74 75 72 65 7d 28 |\begin{p|icture}(|
|00001150| 25 64 2c 25 64 29 28 30 | 2c 30 29 5c 6e 22 2c 20 |%d,%d)(0|,0)\n", |
|00001160| 74 2d 3e 78 6d 61 78 2c | 20 74 2d 3e 79 6d 61 78 |t->xmax,| t->ymax|
|00001170| 29 3b 0a 20 20 20 20 66 | 70 72 69 6e 74 66 28 6f |);.    f|printf(o|
|00001180| 75 74 66 69 6c 65 2c 20 | 22 5c 5c 74 65 6e 72 6d |utfile, |"\\tenrm|
|00001190| 5c 6e 22 29 3b 0a 7d 0a | 0a 0a 45 45 50 49 43 5f |\n");.}.|..EEPIC_|
|000011a0| 74 65 78 74 28 29 0a 7b | 0a 20 20 20 20 45 45 50 |text().{|.    EEP|
|000011b0| 49 43 5f 65 6e 64 6c 69 | 6e 65 28 29 3b 0a 20 20 |IC_endli|ne();.  |
|000011c0| 20 20 66 70 72 69 6e 74 | 66 28 6f 75 74 66 69 6c |  fprint|f(outfil|
|000011d0| 65 2c 20 22 5c 5c 65 6e | 64 7b 70 69 63 74 75 72 |e, "\\en|d{pictur|
|000011e0| 65 7d 5c 6e 22 29 3b 0a | 7d 0a 0a 0a 45 45 50 49 |e}\n");.|}...EEPI|
|000011f0| 43 5f 6c 69 6e 65 74 79 | 70 65 28 6c 69 6e 65 74 |C_linety|pe(linet|
|00001200| 79 70 65 29 0a 09 69 6e | 74 20 6c 69 6e 65 74 79 |ype)..in|t linety|
|00001210| 70 65 3b 0a 7b 0a 20 20 | 20 20 45 45 50 49 43 5f |pe;.{.  |  EEPIC_|
|00001220| 65 6e 64 6c 69 6e 65 28 | 29 3b 0a 0a 20 20 20 20 |endline(|);..    |
|00001230| 69 66 20 28 6c 69 6e 65 | 74 79 70 65 20 3e 3d 20 |if (line|type >= |
|00001240| 45 45 50 49 43 5f 4e 55 | 4d 4c 49 4e 45 53 2d 32 |EEPIC_NU|MLINES-2|
|00001250| 29 0a 09 20 6c 69 6e 65 | 74 79 70 65 20 25 3d 20 |).. line|type %= |
|00001260| 28 45 45 50 49 43 5f 4e | 55 4d 4c 49 4e 45 53 2d |(EEPIC_N|UMLINES-|
|00001270| 32 29 3b 0a 0a 20 20 20 | 20 45 45 50 49 43 5f 74 |2);..   | EEPIC_t|
|00001280| 79 70 65 20 3d 20 6c 69 | 6e 65 74 79 70 65 3b 0a |ype = li|netype;.|
|00001290| 7d 0a 0a 0a 0a 45 45 50 | 49 43 5f 6d 6f 76 65 28 |}....EEP|IC_move(|
|000012a0| 78 2c 79 29 0a 09 75 6e | 73 69 67 6e 65 64 20 69 |x,y)..un|signed i|
|000012b0| 6e 74 20 78 2c 79 3b 0a | 7b 0a 20 20 20 20 45 45 |nt x,y;.|{.    EE|
|000012c0| 50 49 43 5f 65 6e 64 6c | 69 6e 65 28 29 3b 0a 0a |PIC_endl|ine();..|
|000012d0| 20 20 20 20 45 45 50 49 | 43 5f 70 6f 73 78 20 3d |    EEPI|C_posx =|
|000012e0| 20 78 3b 0a 20 20 20 20 | 45 45 50 49 43 5f 70 6f | x;.    |EEPIC_po|
|000012f0| 73 79 20 3d 20 79 3b 0a | 7d 0a 0a 0a 45 45 50 49 |sy = y;.|}...EEPI|
|00001300| 43 5f 70 6f 69 6e 74 28 | 78 2c 79 2c 20 6e 75 6d |C_point(|x,y, num|
|00001310| 62 65 72 29 09 09 2f 2a | 20 76 65 72 73 69 6f 6e |ber)../*| version|
|00001320| 20 6f 66 20 6c 69 6e 65 | 5f 61 6e 64 5f 70 6f 69 | of line|_and_poi|
|00001330| 6e 74 20 2a 2f 0a 09 75 | 6e 73 69 67 6e 65 64 20 |nt */..u|nsigned |
|00001340| 69 6e 74 20 78 2c 79 3b | 0a 09 69 6e 74 20 6e 75 |int x,y;|..int nu|
|00001350| 6d 62 65 72 3b 09 09 09 | 09 2f 2a 20 74 79 70 65 |mber;...|./* type|
|00001360| 20 6f 66 20 70 6f 69 6e | 74 20 2a 2f 0a 7b 0a 20 | of poin|t */.{. |
|00001370| 20 20 20 45 45 50 49 43 | 5f 6d 6f 76 65 28 78 2c |   EEPIC|_move(x,|
|00001380| 79 29 3b 0a 20 20 20 20 | 0a 20 20 20 20 2f 2a 20 |y);.    |.    /* |
|00001390| 50 72 69 6e 74 20 74 68 | 65 20 63 68 61 72 61 63 |Print th|e charac|
|000013a0| 74 65 72 20 64 65 66 69 | 6e 65 64 20 62 79 20 27 |ter defi|ned by '|
|000013b0| 6e 75 6d 62 65 72 27 3b | 20 6e 75 6d 62 65 72 20 |number';| number |
|000013c0| 3c 20 30 20 6d 65 61 6e | 73 20 0a 09 20 20 74 6f |< 0 mean|s ..  to|
|000013d0| 20 75 73 65 20 61 20 64 | 6f 74 2c 20 6f 74 68 65 | use a d|ot, othe|
|000013e0| 72 77 69 73 65 20 6f 6e | 65 20 6f 66 20 74 68 65 |rwise on|e of the|
|000013f0| 20 64 65 66 69 6e 65 64 | 20 70 6f 69 6e 74 73 2e | defined| points.|
|00001400| 20 2a 2f 0a 20 20 20 20 | 66 70 72 69 6e 74 66 28 | */.    |fprintf(|
|00001410| 6f 75 74 66 69 6c 65 2c | 20 22 5c 5c 70 75 74 28 |outfile,| "\\put(|
|00001420| 25 64 2c 25 64 29 7b 25 | 73 7d 5c 6e 22 2c 20 78 |%d,%d){%|s}\n", x|
|00001430| 2c 20 79 2c 20 0a 09 09 | 20 20 28 6e 75 6d 62 65 |, y, ...|  (numbe|
|00001440| 72 20 3c 20 30 20 3f 20 | 45 45 50 49 43 5f 54 49 |r < 0 ? |EEPIC_TI|
|00001450| 4e 59 5f 44 4f 54 0a 09 | 09 20 20 20 3a 20 45 45 |NY_DOT..|.   : EE|
|00001460| 50 49 43 5f 70 6f 69 6e | 74 73 5b 6e 75 6d 62 65 |PIC_poin|ts[numbe|
|00001470| 72 20 25 20 45 45 50 49 | 43 5f 50 4f 49 4e 54 5f |r % EEPI|C_POINT_|
|00001480| 54 59 50 45 53 5d 29 29 | 3b 0a 7d 0a 0a 0a 45 45 |TYPES]))|;.}...EE|
|00001490| 50 49 43 5f 76 65 63 74 | 6f 72 28 75 78 2c 75 79 |PIC_vect|or(ux,uy|
|000014a0| 29 0a 09 75 6e 73 69 67 | 6e 65 64 20 69 6e 74 20 |)..unsig|ned int |
|000014b0| 75 78 2c 75 79 3b 0a 7b | 0a 20 20 20 20 69 66 20 |ux,uy;.{|.    if |
|000014c0| 28 21 45 45 50 49 43 5f | 69 6e 6c 69 6e 65 29 20 |(!EEPIC_|inline) |
|000014d0| 7b 0a 09 20 20 20 45 45 | 50 49 43 5f 69 6e 6c 69 |{..   EE|PIC_inli|
|000014e0| 6e 65 20 3d 20 54 52 55 | 45 3b 0a 0a 09 20 20 20 |ne = TRU|E;...   |
|000014f0| 2f 2a 20 53 74 61 72 74 | 20 61 20 6e 65 77 20 6c |/* Start| a new l|
|00001500| 69 6e 65 2e 20 54 68 69 | 73 20 64 65 70 65 6e 64 |ine. Thi|s depend|
|00001510| 73 20 6f 6e 20 6c 69 6e | 65 20 74 79 70 65 20 2a |s on lin|e type *|
|00001520| 2f 0a 09 20 20 20 66 70 | 72 69 6e 74 66 28 6f 75 |/..   fp|rintf(ou|
|00001530| 74 66 69 6c 65 2c 20 22 | 25 73 28 25 75 2c 25 75 |tfile, "|%s(%u,%u|
|00001540| 29 22 2c 20 0a 09 09 09 | 20 45 45 50 49 43 5f 6c |)", ....| EEPIC_l|
|00001550| 69 6e 65 73 5b 45 45 50 | 49 43 5f 74 79 70 65 2b |ines[EEP|IC_type+|
|00001560| 32 5d 2c 20 0a 09 09 09 | 20 45 45 50 49 43 5f 70 |2], ....| EEPIC_p|
|00001570| 6f 73 78 2c 20 45 45 50 | 49 43 5f 70 6f 73 79 29 |osx, EEP|IC_posy)|
|00001580| 3b 0a 09 20 20 20 45 45 | 50 49 43 5f 6c 69 6e 65 |;..   EE|PIC_line|
|00001590| 63 6f 75 6e 74 20 3d 20 | 31 3b 0a 20 20 20 20 7d |count = |1;.    }|
|000015a0| 20 65 6c 73 65 20 7b 0a | 09 20 20 20 2f 2a 20 45 | else {.|.   /* E|
|000015b0| 76 65 6e 20 74 68 6f 75 | 67 68 20 77 65 20 61 72 |ven thou|gh we ar|
|000015c0| 65 20 69 6e 20 6d 69 64 | 64 6c 65 20 6f 66 20 61 |e in mid|dle of a|
|000015d0| 20 70 61 74 68 2c 20 0a | 09 20 20 20 20 2a 20 77 | path, .|.    * w|
|000015e0| 65 20 6d 61 79 20 77 61 | 6e 74 20 74 6f 20 73 74 |e may wa|nt to st|
|000015f0| 61 72 74 20 61 20 6e 65 | 77 20 70 61 74 68 20 63 |art a ne|w path c|
|00001600| 6f 6d 6d 61 6e 64 2e 20 | 0a 09 20 20 20 20 2a 20 |ommand. |..    * |
|00001610| 49 66 20 74 68 65 79 20 | 61 72 65 20 74 6f 6f 20 |If they |are too |
|00001620| 6c 6f 6e 67 20 74 68 65 | 6e 20 6c 61 74 65 78 20 |long the|n latex |
|00001630| 77 69 6c 6c 20 63 68 6f | 6b 65 2e 0a 09 20 20 20 |will cho|ke...   |
|00001640| 20 2a 2f 0a 09 20 20 20 | 69 66 20 28 45 45 50 49 | */..   |if (EEPI|
|00001650| 43 5f 6c 69 6e 65 63 6f | 75 6e 74 2b 2b 20 3e 3d |C_lineco|unt++ >=|
|00001660| 20 45 45 50 49 43 5f 4c | 49 4e 45 4d 41 58 29 20 | EEPIC_L|INEMAX) |
|00001670| 7b 0a 09 09 20 20 66 70 | 72 69 6e 74 66 28 6f 75 |{...  fp|rintf(ou|
|00001680| 74 66 69 6c 65 2c 20 22 | 5c 6e 22 29 3b 0a 09 09 |tfile, "|\n");...|
|00001690| 20 20 66 70 72 69 6e 74 | 66 28 6f 75 74 66 69 6c |  fprint|f(outfil|
|000016a0| 65 2c 20 22 25 73 28 25 | 75 2c 25 75 29 22 2c 20 |e, "%s(%|u,%u)", |
|000016b0| 0a 09 09 09 09 45 45 50 | 49 43 5f 6c 69 6e 65 73 |.....EEP|IC_lines|
|000016c0| 5b 45 45 50 49 43 5f 74 | 79 70 65 2b 32 5d 2c 20 |[EEPIC_t|ype+2], |
|000016d0| 0a 09 09 09 09 45 45 50 | 49 43 5f 70 6f 73 78 2c |.....EEP|IC_posx,|
|000016e0| 20 45 45 50 49 43 5f 70 | 6f 73 79 29 3b 0a 09 09 | EEPIC_p|osy);...|
|000016f0| 20 20 45 45 50 49 43 5f | 6c 69 6e 65 63 6f 75 6e |  EEPIC_|linecoun|
|00001700| 74 20 3d 20 31 3b 0a 09 | 20 20 20 7d 0a 20 20 20 |t = 1;..|   }.   |
|00001710| 20 7d 0a 20 20 20 20 66 | 70 72 69 6e 74 66 28 6f | }.    f|printf(o|
|00001720| 75 74 66 69 6c 65 2c 20 | 22 28 25 75 2c 25 75 29 |utfile, |"(%u,%u)|
|00001730| 22 2c 20 75 78 2c 75 79 | 29 3b 0a 20 20 20 20 45 |", ux,uy|);.    E|
|00001740| 45 50 49 43 5f 70 6f 73 | 78 20 3d 20 75 78 3b 0a |EPIC_pos|x = ux;.|
|00001750| 20 20 20 20 45 45 50 49 | 43 5f 70 6f 73 79 20 3d |    EEPI|C_posy =|
|00001760| 20 75 79 3b 0a 7d 0a 0a | 73 74 61 74 69 63 20 76 | uy;.}..|static v|
|00001770| 6f 69 64 0a 45 45 50 49 | 43 5f 65 6e 64 6c 69 6e |oid.EEPI|C_endlin|
|00001780| 65 28 29 0a 7b 0a 20 20 | 20 20 69 66 20 28 45 45 |e().{.  |  if (EE|
|00001790| 50 49 43 5f 69 6e 6c 69 | 6e 65 29 20 7b 0a 09 20 |PIC_inli|ne) {.. |
|000017a0| 20 20 66 70 72 69 6e 74 | 66 28 6f 75 74 66 69 6c |  fprint|f(outfil|
|000017b0| 65 2c 20 22 5c 6e 22 29 | 3b 0a 09 20 20 20 45 45 |e, "\n")|;..   EE|
|000017c0| 50 49 43 5f 69 6e 6c 69 | 6e 65 20 3d 20 46 41 4c |PIC_inli|ne = FAL|
|000017d0| 53 45 3b 0a 20 20 20 20 | 7d 0a 7d 0a 0a 0a 45 45 |SE;.    |}.}...EE|
|000017e0| 50 49 43 5f 61 72 72 6f | 77 28 73 78 2c 73 79 2c |PIC_arro|w(sx,sy,|
|000017f0| 20 65 78 2c 65 79 2c 20 | 68 65 61 64 29 0a 09 69 | ex,ey, |head)..i|
|00001800| 6e 74 20 73 78 2c 73 79 | 2c 20 65 78 2c 65 79 3b |nt sx,sy|, ex,ey;|
|00001810| 0a 09 54 42 4f 4f 4c 45 | 41 4e 20 68 65 61 64 3b |..TBOOLE|AN head;|
|00001820| 0a 7b 0a 20 20 20 20 62 | 65 73 74 5f 6c 61 74 65 |.{.    b|est_late|
|00001830| 78 5f 61 72 72 6f 77 28 | 73 78 2c 73 79 2c 20 65 |x_arrow(|sx,sy, e|
|00001840| 78 2c 65 79 2c 20 32 2c | 20 68 65 61 64 29 3b 20 |x,ey, 2,| head); |
|00001850| 2f 2a 20 63 61 6c 6c 20 | 6c 61 74 65 78 20 72 6f |/* call |latex ro|
|00001860| 75 74 69 6e 65 20 2a 2f | 0a 0a 20 20 20 20 45 45 |utine */|..    EE|
|00001870| 50 49 43 5f 70 6f 73 78 | 20 3d 20 65 78 3b 0a 20 |PIC_posx| = ex;. |
|00001880| 20 20 20 45 45 50 49 43 | 5f 70 6f 73 79 20 3d 20 |   EEPIC|_posy = |
|00001890| 65 79 3b 0a 7d 0a 0a 0a | 45 45 50 49 43 5f 70 75 |ey;.}...|EEPIC_pu|
|000018a0| 74 5f 74 65 78 74 28 78 | 2c 20 79 2c 20 73 74 72 |t_text(x|, y, str|
|000018b0| 29 0a 09 69 6e 74 20 78 | 2c 79 3b 09 09 09 09 2f |)..int x|,y;..../|
|000018c0| 2a 20 72 65 66 65 72 65 | 6e 63 65 20 70 6f 69 6e |* refere|nce poin|
|000018d0| 74 20 6f 66 20 73 74 72 | 69 6e 67 20 2a 2f 0a 09 |t of str|ing */..|
|000018e0| 63 68 61 72 20 73 74 72 | 5b 5d 3b 09 09 09 2f 2a |char str|[];.../*|
|000018f0| 20 74 68 65 20 74 65 78 | 74 20 2a 2f 0a 7b 0a 20 | the tex|t */.{. |
|00001900| 20 20 20 45 45 50 49 43 | 5f 65 6e 64 6c 69 6e 65 |   EEPIC|_endline|
|00001910| 28 29 3b 0a 0a 20 20 20 | 20 66 70 72 69 6e 74 66 |();..   | fprintf|
|00001920| 28 6f 75 74 66 69 6c 65 | 2c 20 22 5c 5c 70 75 74 |(outfile|, "\\put|
|00001930| 28 25 64 2c 25 64 29 22 | 2c 78 2c 79 29 3b 0a 20 |(%d,%d)"|,x,y);. |
|00001940| 20 20 20 73 77 69 74 63 | 68 28 65 65 70 69 63 5f |   switc|h(eepic_|
|00001950| 61 6e 67 6c 65 29 20 7b | 20 20 0a 20 09 20 20 20 |angle) {|  . .   |
|00001960| 63 61 73 65 20 30 3a 20 | 7b 0a 09 09 20 20 73 77 |case 0: |{...  sw|
|00001970| 69 74 63 68 28 65 65 70 | 69 63 5f 6a 75 73 74 69 |itch(eep|ic_justi|
|00001980| 66 79 29 20 7b 0a 09 09 | 09 20 63 61 73 65 20 4c |fy) {...|. case L|
|00001990| 45 46 54 3a 20 7b 0a 09 | 09 09 09 66 70 72 69 6e |EFT: {..|...fprin|
|000019a0| 74 66 28 6f 75 74 66 69 | 6c 65 2c 0a 09 09 09 09 |tf(outfi|le,.....|
|000019b0| 09 20 20 20 22 7b 5c 5c | 6d 61 6b 65 62 6f 78 28 |.   "{\\|makebox(|
|000019c0| 30 2c 30 29 5b 6c 5d 7b | 25 73 7d 7d 5c 6e 22 2c |0,0)[l]{|%s}}\n",|
|000019d0| 20 73 74 72 29 3b 0a 09 | 09 09 09 62 72 65 61 6b | str);..|...break|
|000019e0| 3b 0a 09 09 09 20 7d 0a | 09 09 09 20 63 61 73 65 |;.... }.|... case|
|000019f0| 20 43 45 4e 54 52 45 3a | 20 7b 0a 09 09 09 09 66 | CENTRE:| {.....f|
|00001a00| 70 72 69 6e 74 66 28 6f | 75 74 66 69 6c 65 2c 0a |printf(o|utfile,.|
|00001a10| 09 09 09 09 09 20 20 20 | 22 7b 5c 5c 6d 61 6b 65 |.....   |"{\\make|
|00001a20| 62 6f 78 28 30 2c 30 29 | 7b 25 73 7d 7d 5c 6e 22 |box(0,0)|{%s}}\n"|
|00001a30| 2c 20 73 74 72 29 3b 0a | 09 09 09 09 62 72 65 61 |, str);.|....brea|
|00001a40| 6b 3b 0a 09 09 09 20 7d | 0a 09 09 09 20 63 61 73 |k;.... }|.... cas|
|00001a50| 65 20 52 49 47 48 54 3a | 20 7b 0a 09 09 09 09 66 |e RIGHT:| {.....f|
|00001a60| 70 72 69 6e 74 66 28 6f | 75 74 66 69 6c 65 2c 0a |printf(o|utfile,.|
|00001a70| 09 09 09 09 09 20 20 20 | 22 7b 5c 5c 6d 61 6b 65 |.....   |"{\\make|
|00001a80| 62 6f 78 28 30 2c 30 29 | 5b 72 5d 7b 25 73 7d 7d |box(0,0)|[r]{%s}}|
|00001a90| 5c 6e 22 2c 20 73 74 72 | 29 3b 0a 09 09 09 09 62 |\n", str|);.....b|
|00001aa0| 72 65 61 6b 3b 0a 09 09 | 09 20 7d 0a 09 09 20 20 |reak;...|. }...  |
|00001ab0| 7d 0a 09 09 20 20 62 72 | 65 61 6b 3b 0a 09 20 20 |}...  br|eak;..  |
|00001ac0| 20 7d 0a 09 20 20 20 63 | 61 73 65 20 31 3a 20 7b | }..   c|ase 1: {|
|00001ad0| 09 09 09 2f 2a 20 70 75 | 74 20 74 65 78 74 20 69 |.../* pu|t text i|
|00001ae0| 6e 20 61 20 73 68 6f 72 | 74 20 73 74 61 63 6b 20 |n a shor|t stack |
|00001af0| 2a 2f 0a 09 09 20 20 73 | 77 69 74 63 68 28 65 65 |*/...  s|witch(ee|
|00001b00| 70 69 63 5f 6a 75 73 74 | 69 66 79 29 20 7b 0a 09 |pic_just|ify) {..|
|00001b10| 09 09 20 63 61 73 65 20 | 4c 45 46 54 3a 20 7b 0a |.. case |LEFT: {.|
|00001b20| 09 09 09 09 66 70 72 69 | 6e 74 66 28 6f 75 74 66 |....fpri|ntf(outf|
|00001b30| 69 6c 65 2c 0a 09 09 09 | 09 09 20 20 20 22 7b 5c |ile,....|..   "{\|
|00001b40| 5c 6d 61 6b 65 62 6f 78 | 28 30 2c 30 29 5b 6c 62 |\makebox|(0,0)[lb|
|00001b50| 5d 7b 5c 5c 73 68 6f 72 | 74 73 74 61 63 6b 7b 25 |]{\\shor|tstack{%|
|00001b60| 73 7d 7d 7d 5c 6e 22 2c | 20 73 74 72 29 3b 0a 09 |s}}}\n",| str);..|
|00001b70| 09 09 09 62 72 65 61 6b | 3b 0a 09 09 09 20 7d 0a |...break|;.... }.|
|00001b80| 09 09 09 20 63 61 73 65 | 20 43 45 4e 54 52 45 3a |... case| CENTRE:|
|00001b90| 20 7b 0a 09 09 09 09 66 | 70 72 69 6e 74 66 28 6f | {.....f|printf(o|
|00001ba0| 75 74 66 69 6c 65 2c 0a | 09 09 09 09 09 20 20 20 |utfile,.|.....   |
|00001bb0| 22 7b 5c 5c 6d 61 6b 65 | 62 6f 78 28 30 2c 30 29 |"{\\make|box(0,0)|
|00001bc0| 5b 6c 5d 7b 5c 5c 73 68 | 6f 72 74 73 74 61 63 6b |[l]{\\sh|ortstack|
|00001bd0| 7b 25 73 7d 7d 7d 5c 6e | 22 2c 20 73 74 72 29 3b |{%s}}}\n|", str);|
|00001be0| 0a 09 09 09 09 62 72 65 | 61 6b 3b 0a 09 09 09 20 |.....bre|ak;.... |
|00001bf0| 7d 0a 09 09 09 20 63 61 | 73 65 20 52 49 47 48 54 |}.... ca|se RIGHT|
|00001c00| 3a 20 7b 0a 09 09 09 09 | 66 70 72 69 6e 74 66 28 |: {.....|fprintf(|
|00001c10| 6f 75 74 66 69 6c 65 2c | 0a 09 09 09 09 09 20 20 |outfile,|......  |
|00001c20| 20 22 7b 5c 5c 6d 61 6b | 65 62 6f 78 28 30 2c 30 | "{\\mak|ebox(0,0|
|00001c30| 29 5b 6c 74 5d 7b 5c 5c | 73 68 6f 72 74 73 74 61 |)[lt]{\\|shortsta|
|00001c40| 63 6b 7b 25 73 7d 7d 7d | 5c 6e 22 2c 20 73 74 72 |ck{%s}}}|\n", str|
|00001c50| 29 3b 0a 09 09 09 09 62 | 72 65 61 6b 3b 0a 09 09 |);.....b|reak;...|
|00001c60| 09 20 7d 0a 09 09 20 20 | 7d 0a 09 09 20 20 62 72 |. }...  |}...  br|
|00001c70| 65 61 6b 3b 0a 09 20 20 | 20 7d 09 0a 20 20 20 20 |eak;..  | }..    |
|00001c80| 7d 0a 7d 0a 0a 0a 0a 69 | 6e 74 20 45 45 50 49 43 |}.}....i|nt EEPIC|
|00001c90| 5f 6a 75 73 74 69 66 79 | 5f 74 65 78 74 28 6d 6f |_justify|_text(mo|
|00001ca0| 64 65 29 0a 09 65 6e 75 | 6d 20 4a 55 53 54 49 46 |de)..enu|m JUSTIF|
|00001cb0| 59 20 6d 6f 64 65 3b 0a | 7b 0a 20 20 20 20 65 65 |Y mode;.|{.    ee|
|00001cc0| 70 69 63 5f 6a 75 73 74 | 69 66 79 20 3d 20 6d 6f |pic_just|ify = mo|
|00001cd0| 64 65 3b 0a 20 20 20 20 | 72 65 74 75 72 6e 20 28 |de;.    |return (|
|00001ce0| 54 52 55 45 29 3b 0a 7d | 0a 0a 69 6e 74 20 45 45 |TRUE);.}|..int EE|
|00001cf0| 50 49 43 5f 74 65 78 74 | 5f 61 6e 67 6c 65 28 61 |PIC_text|_angle(a|
|00001d00| 6e 67 6c 65 29 0a 09 69 | 6e 74 20 61 6e 67 6c 65 |ngle)..i|nt angle|
|00001d10| 3b 0a 7b 0a 20 20 20 20 | 2f 2a 20 77 65 20 63 61 |;.{.    |/* we ca|
|00001d20| 6e 27 74 20 72 65 61 6c | 6c 79 20 77 72 69 74 65 |n't real|ly write|
|00001d30| 20 74 65 78 74 20 76 65 | 72 74 69 63 61 6c 6c 79 | text ve|rtically|
|00001d40| 2c 20 62 75 74 20 74 68 | 69 73 20 77 69 6c 6c 20 |, but th|is will |
|00001d50| 0a 09 20 20 70 75 74 20 | 74 68 65 20 79 6c 61 62 |..  put |the ylab|
|00001d60| 65 6c 20 63 65 6e 74 72 | 65 64 20 61 74 20 74 68 |el centr|ed at th|
|00001d70| 65 20 6c 65 66 74 20 6f | 66 20 74 68 65 20 70 6c |e left o|f the pl|
|00001d80| 6f 74 2c 20 61 6e 64 0a | 09 20 20 74 68 65 6e 20 |ot, and.|.  then |
|00001d90| 77 65 27 6c 6c 20 6d 61 | 6b 65 20 61 20 5c 73 68 |we'll ma|ke a \sh|
|00001da0| 6f 72 74 73 74 61 63 6b | 20 2a 2f 0a 20 20 20 20 |ortstack| */.    |
|00001db0| 65 65 70 69 63 5f 61 6e | 67 6c 65 20 3d 20 61 6e |eepic_an|gle = an|
|00001dc0| 67 6c 65 3b 0a 20 20 20 | 20 72 65 74 75 72 6e 20 |gle;.   | return |
|00001dd0| 28 54 52 55 45 29 3b 0a | 7d 0a 0a 45 45 50 49 43 |(TRUE);.|}..EEPIC|
|00001de0| 5f 72 65 73 65 74 28 29 | 0a 7b 0a 20 20 20 20 45 |_reset()|.{.    E|
|00001df0| 45 50 49 43 5f 65 6e 64 | 6c 69 6e 65 28 29 3b 0a |EPIC_end|line();.|
|00001e00| 20 20 20 20 45 45 50 49 | 43 5f 70 6f 73 78 20 3d |    EEPI|C_posx =|
|00001e10| 20 45 45 50 49 43 5f 70 | 6f 73 79 20 3d 20 30 3b | EEPIC_p|osy = 0;|
|00001e20| 0a 7d 0a 0a             |                         |.}..    |        |
+--------+-------------------------+-------------------------+--------+--------+